home *** CD-ROM | disk | FTP | other *** search
/ PC Advisor 2007 June / PC Advisor 2007 June.iso / GTours / Andromeda Galaxy.gt5 < prev    next >
Text File  |  2003-08-12  |  2KB  |  78 lines
  1. '-Creating new  workspace
  2. 'CreateWorkspace
  3. '---- standard prologue
  4. OpenWorkspace "Andr.ws5"
  5. Set wnd = getWindow(1)
  6. Set Camera = wnd.camera
  7. Set theTime = camera.time
  8. Set Direction = camera.Direction
  9. Set Location = camera.Location
  10. '---- end standard prologue'
  11. ' Location.SetLonlat 2.34165013524151E-001 , 9.16879624837124E-001
  12. ' Location.Position = 2007
  13.  set obj_d=Direction.Object
  14. 'theTime.JDstr = "2452870.12500"
  15. ' theTime.TimeZone = 1.00000000000000E+000
  16. wnd.MDIWindow.State = SW_MAXIMIZE
  17. set pl =PlayerWindow
  18. pl.top=0
  19. pl.left=0
  20. set txt = CreateTextWindow
  21. txt.LoadFile "Andr1.html"
  22. 'txt.Locate 345,0,450,115
  23. txt.Locate Screen.width-450,0,450,115
  24. txt.Show
  25. settimemark
  26. ' theTime.Units = 3
  27.  theTime.step = 4.00000000000000E+000
  28. ' Direction.Zoom = 5.00000000000000E-001
  29.  theTime.Forward
  30.  WaitFrames 70 : theTime.Stop
  31. 'WaitFrames 35 : theTime.Stop
  32. 'pause 5000
  33. waitfortime 16000
  34. txt.Locate Screen.width-450,0,450,85
  35. txt.LoadFile "Andr2.html"
  36.  obj_d.objectType = &H67616C61
  37.  obj_d.objectID = 1006635516
  38.  Direction.Object=obj_d
  39.  Direction.lock = 1
  40.  SetFieldStatus    &H636E7374 , "BoundariesVisible" , 0,1
  41.  SetFieldStatus    &H636E7374 , "PatternsVisible" , 0,1
  42.  SetFieldStatus    &H636E7374 , "NameAs" , 0,1
  43.  Direction.Zoom = 1.00000000000000E+000 : UpdateWindows
  44.  Direction.Zoom = 2.00000000000000E+000 : UpdateWindows
  45.  Location.SetLonlat 3.1415927E+000 , 2.6179939E-001 : UpdateWindows
  46. 'pause 4000
  47. waitfortime 6000
  48. txt.Locate Screen.width-450,0,450,115
  49. txt.LoadFile "Andr3.html"
  50.  Direction.Zoom = 3.00000000000000E+000 : UpdateWindows
  51.  Direction.Zoom = 4.00000000000000E+000 : UpdateWindows
  52.  Direction.Zoom = 5.00000000000000E+000 : UpdateWindows
  53. pause 1000
  54. set txt1 = CreateTextWindow
  55. txt1.LoadFile "Andr4.html"
  56. 'txt1.Locate 0,310,350,270
  57. txt1.Locate 0,SCreen.height-270,350,270
  58.  Direction.Zoom = 6.00000000000000E+000 : UpdateWindows
  59. pause 1000
  60.  Direction.Zoom = 7.00000000000000E+000 : UpdateWindows
  61. pause 1000
  62.  Direction.Zoom = 8.00000000000000E+000 : UpdateWindows
  63. pause 1000
  64.  Direction.Zoom = 9.00000000000000E+000 : UpdateWindows
  65. pause 1000
  66.  Direction.Zoom = 1.00000000000000E+001 : UpdateWindows
  67. pause 1000
  68.  Direction.Zoom = 1.10000000000000E+001 : UpdateWindows
  69. pause 1000
  70.  Direction.Zoom = 1.20000000000000E+001 : UpdateWindows
  71. txt1.Show
  72. 'pause 8000
  73. waitfortime 15000
  74. txt1.Close
  75. txt.Close
  76. ' end recording
  77.  
  78.